home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 9 / Night Owl CD-ROM (NOPV9) (Night Owl Publisher) (1993).ISO / 015a / v12n06.zip / FTR.ZIP / FTR.BAS next >
BASIC Source File  |  1992-11-24  |  1KB  |  62 lines
  1. '-------------------------------------------------------------------
  2. ' FTR.BAS - A video demonstration program
  3. '
  4. ' Copyright 1993 Douglas Boling
  5. '-------------------------------------------------------------------
  6. GOSUB GetVidBuff
  7. SCREEN 0, 0, 0, 0:  'Set text video mode
  8. CLS :               'Clear the screen
  9. DEF SEG = vidseg:   'Point to video segment
  10. k = vidoff:         'Point to starting off
  11. 'Display fighter and loop
  12. FOR i = 0 TO 24 STEP 4
  13.    FOR j = i * 2 TO 150 - (i * 2) STEP 2
  14.       GOSUB eraseship
  15.       k = j + (i * 160)
  16.       GOSUB drawship
  17.       FOR m = 1 TO 255:  'Delay
  18.       NEXT m
  19.    NEXT j
  20.  
  21.    FOR j = 150 - (i * 2) TO i * 2 STEP -2
  22.       GOSUB eraseship
  23.       k = j + ((i + 2) * 160)
  24.       GOSUB drawship
  25.       FOR m = 1 TO 255:  'Delay
  26.       NEXT m
  27.    NEXT j
  28. NEXT i
  29. END
  30. '
  31. ' Determine video buffer location
  32. '
  33. GetVidBuff:
  34. DEF SEG = &H40
  35. IF ((PEEK(&H63) AND &H40) = &H40) THEN
  36.    vidseg = &HB800
  37. ELSE
  38.    vidseg = &HB000
  39. END IF
  40. vidoff = PEEK(&H44)
  41. vidoff = (vidoff * 256) + PEEK(&H43)
  42. RETURN
  43. '
  44. 'Draw spaceship using text characters
  45. '
  46. DrawShip:
  47. POKE k, 199
  48. POKE k + 2, 79
  49. POKE k + 4, 182
  50. RETURN
  51. '
  52. 'Erase space ship using blanks
  53. '
  54. EraseShip:
  55. POKE k, 32
  56. POKE k + 2, 32
  57. POKE k + 4, 32
  58. RETURN
  59. badvideo:
  60. PRINT "Video Error"
  61. RESUME NEXT
  62.